CD-ROM Magazine 1/CD-ROM Magazine - Issue 01.iso/pc/demo/corelg/qtour/shared.dir/00501_Script_Shared Scripts

Text File | 1995-06-06 | 4KB | 148 lines

---------------------------------------------
--
-- Shared Cast Scripts
--
-- Copyright Corel Corporation 1995
--
---------------------------------------------

on ButtonDown theLabel,theChan
  global gAutomatic
  if voidP(theChan) then
    set sChan = the clickon
  else
    set sChan = theChan
    set theCast = the castNum of sprite the clickon
  end if
  set sNum = the castNum of sprite sChan
  set sNum2 = sNum + 1
  set the puppet of sprite sChan to true
  repeat while the mouseDown
    if the mouseCast = sNum  or the mouseCast = sNum2 or the mouseCast = theCast then
      set the castNum of sprite sChan to sNum2
    else
      set the castNum of sprite sChan to sNum
    end if
    updatestage
  end repeat
  set the castNum of sprite sChan to sNum
  updatestage
  set the puppet of sprite sChan to false
  if the mouseCast = sNum or the mouseCast = sNum2 or the mouseCast = theCast then
    if gAUTOMATIC then
      if theLabel = "PLAY" then
        continue
      else if theLabel = "STOP" then
        pause
      else
        go to frame "AUTOMATIC" of movie theLabel
      end if
    else
      go movie theLabel
    end if
  end if
end

on ScrollNext HL
  if HL then
    set sChan = 15
    set HLsNum = the castNum of sprite (the clickOn)
  else
    set sChan = the clickon
  end if
  set sNum = the castNum of sprite sChan
  set sNum2 = sNum + 1
  set the puppet of sprite sChan to true
  if HL then
    repeat while the mouseDown
      if the mouseCast = HLsNum then
        set the castNum of sprite sChan to sNum2
      else
        set the castNum of sprite sChan to sNum
      end if
      updatestage
    end repeat
  else
    repeat while the mouseDown
      if the mouseCast = sNum  or the mouseCast = sNum2 then
        set the castNum of sprite sChan to sNum2
      else
        set the castNum of sprite sChan to sNum
      end if
      updatestage
    end repeat
  end if
  set the castNum of sprite sChan to sNum
  updatestage
  set the puppet of sprite sChan to false
  if HL then
    if the mouseCast = HLsNum then
      go marker(1)
    end if
  else
    if the mouseCast = sNum or the mouseCast = sNum2 then go marker(1)
  end if
end

on ScrollPrev HL
  if HL then
    set sChan = 15
  else
    set sChan = the clickon
  end if
  set sNum = the castNum of sprite sChan
  set sNum2 = sNum + 1
  set the puppet of sprite sChan to true
  repeat while the mouseDown
    if the mouseCast = sNum  or the mouseCast = sNum2 then
      set the castNum of sprite sChan to sNum2
    else
      set the castNum of sprite sChan to sNum
    end if
    updatestage
  end repeat
  set the castNum of sprite sChan to sNum
  updatestage
  set the puppet of sprite sChan to false
  if the mouseCast = sNum or the mouseCast = sNum2 then go marker(-1)
end

on QUITTER
  set sChan = the clickon
  set sNum = the castNum of sprite sChan
  set sNum2 = sNum + 1
  set the puppet of sprite sChan to true
  repeat while the mouseDown
    if the mouseCast = sNum  or the mouseCast = sNum2 then
      set the castNum of sprite sChan to sNum2
    else
      set the castNum of sprite sChan to sNum
    end if
    updatestage
  end repeat
  set the castNum of sprite sChan to sNum
  updatestage
  set the puppet of sprite sChan to false
  if the mouseCast = sNum or the mouseCast = sNum2 then QUIT
end

on keyDown
  global gLast,gFirst
  if the keyCode = 124 then -- NEXT Arrow
    if gLast <> 0 then
      go movie gLast
    else
      go marker(1)
    end if
  else if the keyCode = 123 then -- PREV Arrow
    go marker(-1)
  else if the keyCode = 116 then -- PG Up
    if gLast <> 0 then
      go movie gLast
    else
      go marker(1)
    end if
  else if the keyCode = 121 then -- PG Down
    go marker(-1)
  end if
end